home *** CD-ROM | disk | FTP | other *** search
- >** - top of file -|
- >**
-
- setpath.do V. 2.3.0 - 09/25/91
-
- Copyright (C) 1992 by Al Fasoldt.
-
- This script is offered as an example of how to get Flash to
- automatically check paths on a floppy disk, a hard disk and a
- ramdisk to see which DO files it should acdess and what file
- path it should use to save and load files.
-
- Obviously, you would need to tailor it to your own setup.
-
- |
-
- >** sets filesave path as P, do path as Q, flash dir as R.|
- >** without HD or RD, do files must be in A:\DO\.|
- >$P|
- >$Q|
- >ca cl|
- >ca on|
- >log xxxxxxxxxxxxxxxxxxxxxxxxx|
- >ca off|
- >L: echeck|
- >sa ca e:\flash\drivchek.dat|>** hard drive.|
- >pa 1|
- >op e:\flash\drivchek.dat|
- >if ~op jmp pcheck|
- >$P E:\BOB\|
- >$Q E:\FLASH\DO\|
- >$R E:\FLASH\|
- >type "|Hard drive path set.|"|
- >jmp showpath|
- >L: pcheck|
- >sa ca p:\drivchek.dat|>** ramdisk.|
- >pa 1|
- >op p:\drivchek.dat|
- >if ~op jmp acheck|
- >$Q P:\|
- >type "|Ramdisk path set.|"|
- >** HD off; use ramdisk.|
- >L: acheck|
- >sa ca a:\drivchek.dat|
- >op a:\drivchek.dat|
- >if ~op ty "|DRIVE A: IS NOT RESPONDING."|
- >if ~op xd|>** exit to desktop if no HD, no RD, no floppy.|
- >$P A:\|
- >$R A:\|
- >type "|Floppy path set.|"|
- >if Q jmp showpath|>** if var Q exists, you are done.|
- >$Q A:\DO\|>** otherwise, make it this path.|
- >L: showpath|
- >type |
- >type ------|>type|>type Paths:|>type|>type ------|
- >type|>type|>type Files: |>type $P|>type|
- >type Scripts: |>type $Q|>type|
- >type Flash default root directory: |>type $R|>type||
- >type|
- >end|
- >** end|
-